home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 13 / 013.d81 / necromancer ii (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  17KB  |  548 lines
  1. 0 ifa=0thena=1:load"lettersound",8,1
  2. 1 poke806,0:poke807,192:gosub61000
  3. 2 print"";:goto10
  4. 3 print"[212]he [206]ecromancer is gone! [200]is reign is   over. [215]e are free of bad jokes!!"
  5. 4 print"[194]y the way, why did the cougar cross theroad?":fort=1to2000:next
  6. 5 print"[208]lay again([217]/[206])?";:poke198,0:wait198,1:geta$
  7. 6 ifa$="y"thenrun2
  8. 7 ifa$="n"then63000
  9. 8 print"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";:goto5
  10. 10 rem
  11. 24 rem**********************
  12. 25 rem**   necromancer ii:**
  13. 30 rem**   necromancer's  **
  14. 35 rem**   revenge        **
  15. 40 rem**********************
  16. 45 rem
  17. 46 rem  written by steve shelton
  18. 47 rem  february,1985
  19. 48 rem
  20. 49 rem  translated to the c-64 by
  21. 50 rem  alan gardner   may,1985
  22. 55 rem
  23. 60 rem   based on the game lair
  24. 61 rem      of the necromancer
  25. 63 rem         by rod rudd
  26. 65 rem         july,1984
  27. 70 rem
  28. 80 rem
  29. 90 rem
  30. 100 rem
  31. 180 rem
  32. 200 rem
  33. 210 lc=1
  34. 250 goto11000
  35. 300 print
  36. 301 input"===>";c$
  37. 303 cm=0:print
  38. 305 ifleft$(c$,3)="use"thencm=2
  39. 310 ifleft$(c$,1)="s"thencm=3
  40. 315 ifleft$(c$,1)="n"thencm=4
  41. 320 ifleft$(c$,1)="e"thencm=5
  42. 325 ifleft$(c$,1)="w"thencm=6
  43. 330 ifleft$(c$,4)="look"thencm=7
  44. 335 ifleft$(c$,3)="get"thencm=9
  45. 337 ifleft$(c$,4)="quit"thengosub60000
  46. 340 ifcm<>2then435
  47. 345 print:input"[213]se what item? ";u$
  48. 347 ud=0:print
  49. 350 ifleft$(u$,12)="poison darts"thenud=1
  50. 355 ifleft$(u$,7)="trumpet"thenud=2
  51. 360 ifleft$(u$,12)="ring of fire"thenud=3
  52. 365 ifleft$(u$,11)="power sword"thenud=4
  53. 370 ifleft$(u$,9)="laser gun"thenud=5
  54. 375 ifleft$(u$,14)="book of spells"thenud=6
  55. 380 ifleft$(u$,10)="rotten egg"thenud=7
  56. 385 ifleft$(u$,10)="gun powder"thenud=8
  57. 390 ifleft$(u$,9)="money bag"thenud=9
  58. 395 ifleft$(u$,4)="wine"thenud=10
  59. 400 ifud=0thenprint"What?":goto300
  60. 405 goto10500
  61. 410 ifud=3thenri=2
  62. 415 ifud=4thenps=2
  63. 417 ifud=7thends=2
  64. 420 ifud=8thenmd=2
  65. 425 ifud=9thenhw=2
  66. 430 ifud=10theng0=2
  67. 435 ifleft$(c$,1)="i"then20000
  68. 440 ifleft$(c$,6)="answer"thencm=8
  69. 445 ifc$=""then301
  70. 450 ifleft$(c$,3)="com"then30000
  71. 451 ifcm=0andsu=3then30000
  72. 455 ifcm=0thenprint"[211]ay what?!?!?!?":su=su+1:goto300
  73. 460 return
  74. 500 rem*location#1
  75. 510 print"[217]ou are at the entrance of the dungeon. [201]t is humid and mucky smelling";
  76. 511 print" in here."
  77. 520 print"[212]he [206]ecromancer has returned, as he had promised. [212]his time, he is ";
  78. 521 print"torturing thekingdom's people with bad jokes. [217]ou    must stop him!!"
  79. 530 print:print"There is an exit to the west."
  80. 540 gosub300
  81. 560 ifcm=2thenprint"No effect."
  82. 570 ifcm=5orcm=4orcm=3thenprint"[217]ou can't go that way!!"
  83. 580 ifcm=6thenlc=2:goto250
  84. 590 ifcm=7then500
  85. 610 ifcm=9thenprint"Nothing here."
  86. 620 goto540
  87. 1000 rem*location#2
  88. 1010 print"There is a basin in this room."
  89. 1020 ifmd=0thenprint"There is a pouch of gun powder in the   basin."
  90. 1025 print
  91. 1030 print"There are exits to the south and east."
  92. 1040 gosub300
  93. 1050 ifcm=2thenprint"No effect."
  94. 1060 ifcm=3thenlc=4
  95. 1070 ifcm=4thenprint"You cannot go that direction."
  96. 1080 ifcm=5thenlc=1
  97. 1090 ifcm=6thenprint"Sorry,you can't go that way."
  98. 1100 ifcm=5orcm=3then250
  99. 1110 ifcm=7then1000
  100. 1120 ifcm=9andmd>0thenprint"Nothing here."
  101. 1125 ifcm=9andmd<1thenprint"Gun powder taken.":md=1
  102. 1130 goto1040
  103. 1175 iflc=20then10000
  104. 1500 rem*location#3
  105. 1510 print"[212]his room is empty. [212]here are exits to  the south and east."
  106. 1525 print
  107. 1540 gosub300
  108. 1550 ifcm=2thenprint"No effect."
  109. 1560 ifcm=3thenlc=9:goto250
  110. 1565 ifcm=5thenlc=4:goto250
  111. 1570 ifcm=4thenprint"You can't go that direction."
  112. 1580 ifcm=6thenprint"[211]orry, you can't go that way."
  113. 1590 ifcm=7then1500
  114. 1605 ifcm=9thenprint"[206]othing here."
  115. 1610 goto1540
  116. 2000 rem*location#4
  117. 2010 print"[212]his room is empty. [212]here are exits to  the north, east, and west."
  118. 2035 print
  119. 2045 gosub300
  120. 2050 ifcm=2thenprint"No effect."
  121. 2060 ifcm=2andud<>10thenprint"No effect."
  122. 2070 ifcm=9thenprint"Nothing here."
  123. 2080 ifcm=9andd4=1andsc>0thenprint"Nothing here."
  124. 2100 ifcm=3thenprint"You can't go that direction.":goto2000
  125. 2110 ifcm=4thenlc=2:goto11000
  126. 2120 ifcm=6thenlc=3:goto250
  127. 2130 ifcm=5thenlc=5:goto250
  128. 2140 goto2045
  129. 2500 rem*location#5
  130. 2505 ifz=1thenprint"The serpent lets you pass unscathed."
  131. 2510 ifz<1thenprint"[212]here is a rather large serpent here,    and he will not let";
  132. 2511 ifz<1thenprint" you pass."
  133. 2516 print
  134. 2517 print"There are exits to the south and west.":print:print
  135. 2520 gosub300
  136. 2525 ifd5=1then2550
  137. 2530 ifcm=2andud=8thenprint"[212]he serpent gulps it down and gives you poison darts";
  138. 2531 ifcm=2andud=8thenprint" and a safe passage in      return.":ms=1:z=1:md=2
  139. 2540 ifz<1thenprint"[212]he serpent doesn't even waste poison onyou, but swallows";
  140. 2541 ifz<1thenprint" you whole.":goto50000
  141. 2550 ifcm=2andud<>8thenprint"[206]o effect."
  142. 2560 ifcm=6thenlc=4:goto250
  143. 2570 ifcm=4orcm=5thenprint"You can't go that way."
  144. 2575 ifcm=3thenlc=6:goto250
  145. 2580 ifcm=9thenprint"Nothing here."
  146. 2590 ifcm=7then2500
  147. 2620 goto2500
  148. 3000 rem*location#7
  149. 3010 print"[212]his room is empty. [212]here are exits to  the west and north."
  150. 3040 gosub300
  151. 3060 ifcm=2andud<>8thenprint"No effect."
  152. 3065 ifcm=2andud=8thenprint"No effect."
  153. 3070 ifcm=3orcm=5thenprint"You cannot go that direction."
  154. 3080 ifcm=4thenlc=6:goto250
  155. 3090 ifcm=6thenlc=8:goto250
  156. 3100 ifcm=7then3000
  157. 3120 ifcm=9thenprint"Nothing here."
  158. 3130 goto3040
  159. 3500 rem*location#8
  160. 3510 print:print:print
  161. 3520 ifhw<1thenprint"[212]here is a bag of gold in this room.    [212]here is an exit to";
  162. 3521 ifhw<1thenprint" the east."
  163. 3530 ifhw>0thenprint"[212]his room is empty. [212]here is an exit to  the east."
  164. 3540 gosub300
  165. 3550 ifcm=7then3500
  166. 3560 ifcm=2thenprint"[217]ou throw the weapon at the ground.  [212]heground is mortally";
  167. 3561 ifcm=2thenprint" wounded."
  168. 3565 ifcm=2andud=6thenprint"You have killed the ground."
  169. 3600 ifcm=3orcm=4orcm=6thenprint"You cannot go that direction."
  170. 3610 ifcm=5thenlc=7:goto250
  171. 3620 ifcm=7then3500
  172. 3630 ifcm=9andhw>0thenprint"Nothing here."
  173. 3640 ifcm=9andhw<1thenprint"Money bag taken.":hw=1
  174. 3650 goto3540
  175. 3700 print"[212]his room is empty. [212]here are exits to  the west and south."
  176. 3701 gosub300
  177. 3702 ifcm=4orcm=5thenprint"There is not a door there."
  178. 3703 ifcm=3thenlc=18:goto250
  179. 3704 ifcm=6thenlc=9:goto250
  180. 3705 ifcm=8thenprint"[200]ow are you going to answer a question  when none was asked?";
  181. 3706 ifcm=2thenprint"No effect."
  182. 3707 ifcm=9thenprint"Nothing here."
  183. 3710 goto3700
  184. 4000 rem*location#9
  185. 4005 print"[212]here is a group of circular stairs     forming a sort of basin in";
  186. 4006 print" the center ofit."
  187. 4010 ifho<1thenprint"There is a golden trumpet here."
  188. 4030 print"There are exits in all directions."
  189. 4040 gosub300
  190. 4060 ifcm=2andud<>4thenprint"No effect."
  191. 4065 ifcm=9andud=4thenprint"No effect."
  192. 4070 ifcm=3thenlc=12:goto11000
  193. 4080 ifcm=5thenlc=19:goto250
  194. 4085 ifcm=4thenlc=3:goto11000
  195. 4090 ifcm=6thenlc=10:goto250
  196. 4100 ifcm=7then4000
  197. 4110 ifho>0andcm=9thenprint"Nothing here.
  198. 4120 [139]cm[178]9[175]ho[178]0[167][153]"Trumpet taken.":ho[178]1
  199. 4130 [137]4040
  200. 4500 [143]*location#10
  201. 4510 [139]bb[179]1[167][153]"(NULL)here is a giant dragon eagle here.  left$e is swooping down";
  202. 4511 [139]bb[179]1[167][153]" towards you."
  203. 4513 [139]bb[178]1[167][153]"There is a dead dragon eagle here."
  204. 4514 [139]re[178]1[175]rp[179]1[167][153]"There is a rotten egg here."
  205. 4515 [153]"There are exits to the south and east."
  206. 4520 [141]300
  207. 4530 [139]bb[178]1[167]re[178]1
  208. 4535 [139]cm[178]2[175]ud[178]1[167][153]"(NULL)ou strike him in his cold, black heart and he";
  209. 4536 [139]cm[178]2[175]ud[178]1[167][153]" flutters to the ground--dead.":bb[178]1:re[178]1:[137]4555
  210. 4540 [139]bb[179]1[167][153]"(NULL)he eagle rakes you with its poisonous  talons and you die";
  211. 4541 [139]bb[179]1[167][153]" a slow, painful      death.":[137]50000
  212. 4550 [139]cm[178]2[175]bb[178]1[167][153]"right$n some kingdoms it is considered proof of insanity";
  213. 4551 [139]cm[178]2[175]bb[178]1[167][153]" to try to kill a dead dragoneagle.":[137]4560
  214. 4552 [139]bb[177]0[167]4560
  215. 4555 [139]bb[178]1[175]re[178]1[167][153]"A rotten egg rolls out of his mouth."
  216. 4560 [153]
  217. 4570 [139]cm[178]4[176]cm[178]6[167][153]"You can't go that way."
  218. 4580 [139]cm[178]5[167]lc[178]9:[137]250
  219. 4590 [139]cm[178]3[167]lc[178]11:[137]250
  220. 4600 [139]cm[178]9[175]ds[179]1[167][153]"Egg taken.":ds[178]1:re[178]2
  221. 46